home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / circle.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-11-09  |  1.8 KB  |  43 lines
  1. 5  'CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '*****************  BULLSEYE CIRCLE PROGRAM GRAPHIC  ***********************
  3. 12  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 14  'OPEN                HYPNOTIC CIRCLE PROGRAM COLOR/GRAPHICS                   OPEN
  5. 16  'OPEN                                                                         OPEN
  6. 18  'OPEN    This program requires a color graphics board and color or composite  OPEN
  7. 20  'OPEN video monitor. The program provides an interesting growing circle that  OPEN
  8. 22  'OPEN evolves to a BULLSEYE. It would be suitable for visual relaxation and/  OPEN
  9. 24  'OPEN or contemplation. It is also useful as an eye-catching color display.   OPEN
  10. 26  'OPEN It will run until intentionally terminated with a REBOOT or BREAK.      OPEN
  11. 28  'OPEN                     (c) G I N A C O   -- 1983        Ver 5.1/160        OPEN
  12. 30  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  13. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  14. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  15. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  16. 240  CLS
  17. 250   SCREEN 0,0,0
  18. 260    WIDTH 80
  19. 270     CLEAR
  20. 280      FOR I! = 1 TO 10
  21. 290         KEY I!,""
  22. 300        NEXT
  23. 310  FOR J! = 0 TO 2
  24. 320     CLS
  25. 330      KEY OFF
  26. 340       SCREEN 1,0
  27. 350        COLOR 0,J!
  28. 360         LOCATE 25,15
  29. 370          PRINT "COLOR CIRCLES"
  30. 380           LOCATE 1,15
  31. 390            PRINT "PALETTE 0,";J!
  32. 400             FOR K! = 2 TO 16
  33. 410                FOR I! = 3 TO 100
  34. 420                   CIRCLE (160,100),I!,I! \ 6 MOD K!
  35. 430                  NEXT I!
  36. 440                 NEXT K!
  37. 450                NEXT J!
  38. 460                 CLS
  39. 470                  GOTO 310
  40. 480  END
  41. 65000  REM  *****************  SAVE  ROUTINE  ********************************
  42. 65100  SAVE "A:CIRCLE.BAS"
  43.